﻿Imports System.Text.RegularExpressions
Imports System.String

Module HoTro
    Public Function XoaKiTuTrangDu(ByVal str As String) As String
        'xóa khoảng trắng ở đầu và cuối
        str = str.Trim()
        If str.Length <= 3 Then
            Return str
        End If
        'xóa khoảng trắng ở giữa
        For i As Integer = str.Length - 2 To 2 Step -1
            If str(i) = " " And str(i - 1) = " " Then
                str = str.Remove(i, 1)
            End If
        Next
        Return str
    End Function

    Public Function Check(ByVal strCheck As String, ByVal regex As String) As Boolean
        Dim rex As New Regex(regex)
        Dim m As Match
        m = rex.Match(strCheck)
        Return m.Success
    End Function

End Module
